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16-Sep-1984 00:19: VAX=-11 FORTRAN V3.4-56 Page 1 
§-300- 1387 99:13:32 DI SKSVMSMASTER: LERF SRCIDHEADS. FOR: 1 . 
C 
: Version: *v04-000' pa 
; 
® 
Ce * $¢ 
Ce * 
cs : bc8 
~ ® 
f 9 Ce THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * a8 
1 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 045: 
1 Ce Stier OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 045 
1 Ce COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 045 
14 C* OTHER PE - NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 045 
Se es TRANSFERRED. * ks 
te 
0017 (C® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 046 
0018 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 046 
934 = CORPORATION. * bee 
® \ 
0021 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 046 
BB ¢ és SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : gee 
4 046 
09 5 Pa DELILE ALN AE IES ANTAL AI A ITT i TE ELH ere 
C 
0037 hd 
0028 C Author Brian Porter Creation Date 15-JUN-1981 ee? 
8088 c+e 047 
O03 c Functional description: ate 
c \ 
0038 C This routine is called to identity the device for "DEVICE ERROR’, bee: 
0035 ¢ "DEVICE ATTENTION’ and ‘DEVICE TIMEOUT’ entries. 665 
c 
c Modified by: 047' 
0087 ¢ d 048 
00 C v03-003 SARO252 Sharon A. Reynolds 23-Apr-1984 gee 
905 ¢ Added a field length for the output of the device name. aes 
004 C V03-002 SAR0068 Sharon A. Reynolds, 20-Jun-1983 8 
004 C Changed the carriage control in the ‘format’ statements 8 
004 ¢ for use with ERF. ; 
bo Cc v03-001 BP0003 Brian Porter, 03-MAR-1982 ) 
004, c Added more arguments to dhead2 call. Added dhead3 
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subroutine dhead! (lun,device_type) 
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ror 


include ‘src$:msghdr.for /nolist' 
include ‘src$:deverr.for /nolist' 


byte lun 
character*(*) device_type 


call header (lun) 

if (emb$w_hd_entry .eq. 1) then 

call logger (lun, "DEVICE ERROR") 

else if (emb$w_hd_entry .eq. 96) then 
call logger (lun, "DEVICE TIMEOUT") 
else if (emb$w_hd_entry .eq. 98) then 
call logger (lun, "DEVICE ATTENTION’) 
endif 
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call dhead2 (lLun,device_type,emb$b_dv_naming,emb$t_dv_name, 


1 emb$w_dv_unit) 
return 


end 
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DHEAD1 


PROGRAM SECTIONS 


Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


-00000010 
SS 
Sass 


) 
00000012 
6 
E 
E [24 
=-0000005F 
sss e's $3 
ws sis oe $49 
~$0000008 


ARRAYS 
Address Type 


sB000008? st 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 
DHEAD2 


Name 
DHEAD1 


DEVICE TYPE 
EMBSB_Bv_ERTCNT 


$WU_DV_UNIT 
EMBSW_HD_ERRSEQ 


EMB 
EMBSL_DV_REGSAV 
EMBSQ"HD~ TIME 


Type Name 


HEADER 


VAX-11 FORTRAN 


DISKSVMSMASTER: 
Bytes Attributes 
121 PIC CON REL LCL SHR EXE RD NOWRT LONG 
45 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
10 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
51 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
786 
Address Type Name 
-0000001C L*1 EMBSB_DV_CLASS 
0000011 L*l EMB$B_DV_ERTMAX 
=000000 A L*l EMBSB_DV_ 
-00000036 I*4 EMBSL_DV_C 
-00000016 I*4 EMBSL_DV_10SB2 
~Q0000046E I*4 EMBSL_DV_ 
~0000005 I*4 EMBSL_DV_OWNUIC 
-000000 I*4 EMBSL_HD_ 
0000024 I*2 EMBSW_DV_ 
=000000 C I*2 EMBSW_DV_ERRCNT 
“QO00001A I*2 EMBSW_DV_ 
-00000004 I*2 EMBSW_HD_ENTRY 
AP-00000004@ L*1 LUN 
Bytes Dimensions 
512 (0:511) 
420 (0:1 
8 (2) 
Type Name 
LOGGER 
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subroutine dhead2 (lun,device_type,emb$b_zz_naming,emb$t_zz_name, 
emb$w_zz_unit) 
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| include ‘src$:msghdr.for /nolist’ 
8071 
oor 8 
bore byt l 
e un 

0075 ‘ 3 
Bere character*(*) device_type 
gore byte emb$b_zz_naming 3 
9080 character*(*) | emb$t_zz_name ; 
9082 integer*2 emb$w_zz_unit 3 
0084 integere4 caller_mount_flag_and_label 064 
poe character*i2 Last_emb$t_vm_label Ose 
0088 integer*4 Last_emb$t_vm_label_Length bee 
6090 logicale1 Last_emb$t_vm_label_valid 064 
0091 064 
a4 logical*1 str$trim age 
0094 integer*4 compress4 Bee 
0096 065 
38 8s 
0099 Last_emb$t_vm_label_valid = . false. 065 
0101 call get_current_label (3,emb$l_hd_sid,emb$b_zz_namlng,emb$t_zz_name, P) 
£198 1 emb$w_Zz_unit,2ref(last_emb$t_vm_label),*5) 4 

ine Last_emb$t_vm_label_valid = .true. 
8 5 cont inue 

108 if (.not. str$trim (Last_emb$t_vm_label,last_emb$t_vm_label, 
Hh 1 Last_emb$t_vm_label_length)) then 

111 Last_emb$t_vm_label_length = 12 

Be endif 

11 

114 if ( | 

115 1 Last_emb$t_vm_label_valid | ? 

| 
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4 Th yeas, Dien oe ‘| 
1B-Se0-1984 99:43:38 SESCSUNSRASTEN-LERP Sec IDHEADS.FoR:1 em” 
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118 1 .and. 067 
1 1 Last_emb$t_vm_label_length .gt. 1 7 
19 1) then i 
: 10 continue 
¢ call Linchk (Lun,2) f 
4 write(lun,15) device type,emb$t_zz_ name(1:emb$b_zz_naming), 
5 1 emb$w_zz_unit,', CORRENT LABE Fa! alr . 
§ 1 Last_e@mbSt_vm_label(1:last_emb$t_vm_Label_length),''" 
15 formatT/' ',a,' SUG~SYST + ONIT _*,aZemb$b zz.naglog>. 
3 1 i<compress4 (LibSextzv(0,16,embSw_zz_unit))>7°:',3t:a)) 
; siti re 
* oss 
20 continue 069 
5 call Linchk (Llun,2) 069 


write(lun,15) device_type,emb$t_zz_name(1:emb$b_zz_naming), 
1 emb$w_zz_unit 


return 


entry dhead3 (lun,device_type,emb$b_zz_naming,emb$t_zz_name, 
1 emb$w_zz_unit,caller_mount_flag_and_Cabel) 


Last_emb$t_vm_label_valid = .false. 
if (caller_mount_flag_and_label .eq. -1) goto 20 


call movc3 (Zval(12),%val(caller_mount_flag_and_label), 
1 Sref(last_emb$t_vm_label)) 


if (.not. str$trim (lLast_emb$t_vm_label,last_emb$t_vm_label, 
1 Last_emb$t_vm_label_length)) then 
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Last_emb$t_vm_label_length = 12 
endif 

Last_emb$t_vm_label_valid = .true. 
goto 10 

end 
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PROGRAM SECTIONS 


Name Bytes Attributes 
9 SCODE 469 PIC CON REL 
SPDATA § PIC CON REL 
¢ SLOCAL 1 8 PIC CON REL 
—EMB 51 PIC OVR REL 
Total Space Allocated 1224 


ENTRY POINTS 


LABELS 
Address Label Address Label Address’ Label 
0-0000004A 5 0-00000062 10 1-00000022 15° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 


DEVICE TYPE 
EMBS 


Address Type Name Address Type Name 
0-00000000 DHEAD2 0-0000012B8 DHEAD3 
VARIABLES 
Address Type Name Address Type 
AP-00000018@ I*4 CALLER_MOUNT rh LA AND_LABEL AP-00000008@ CHAR 
Fae see's th L*1 por _21_NAM : -00000000 I[*4 
AP 10@ CHAR EMBS$T~27- “hanes ~00000004 a 
~OO00000E I*2 EMBSW-HD-ER es 944 4d a It 
CHAR LAST_EmBST LABEL -00000010 I* 
-0000000C L*1 LAST_EMBST— “VR LABEL_VALID AP-00000004a L*1 
ARRAYS 
Address Type Name Bytes Dimensions 
-00000000 L*l EMB 512 (0:511) 
-00000006 I*4 EMBSQ_HD_TIME 8 (2) 


1*4 COMPRESS4 GET CURRENT LABEL 
LINCHK move 


SOc19EE QQI9:HE  yMEcdte 


RD NOWRT LONG 
RD NOWRT LONG 
RD WRT LONG 
RD WRT LONG 


UNIT 
Temas” -VM_LABEL_LENGTH 


Label 


0-000000DA 20 


Type Name 


I*4 LIBSEXTZV 
L*1 STRSTRIM 
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— ifsc 99:33:38 DEEKEVMSRASTER-FERF-SRcJOHEADS.FoR;1 8% 


| 
COMMAND QUALIFIERS | 
FORTRAN /LIS=LIS$:DHEADS/OBJ=0BJ$:DHEADS MSRC$:DUEADS | 
/CHECK= (NOBOUNDS OVERFLOW NOUNDERFLOW) 
/DEBUG=( (NOS YRBOLS - TRACE 
is ANDARD= (NOSYNTA OSOURC E FORM) 
OCESSOR. NOINCLODE 


RY “7NOG. FLOATING 714 WOPTIAIZE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: g-38 seconds 
Elapsed Time: 0 seconds 
Page Faults: 13 

Dynamic Memory: 175 pages 


PMENT CORPORATION 
.AND PROPRIETARY 
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